#lang racket/load

(load "len.rkt")
(load "sum-loop.rkt")


(define (average-price price-list)
  (/ (sum price-list) (length price-list)) 
  )
  
; Test
(define a-price-list
  (cons 2.5
     (cons 3.6
        (cons 5.6
           (cons .8 empty)))))

(display (average-price a-price-list))
